home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / docs / misc / UMSFAQv2.lha / UMS-FAQ / rexx / MyLine.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1995-05-10  |  169 b   |  15 lines

  1. /* MyLine by TLC v1.0 3/5/95 */
  2.  
  3. call open(1,'Work:UMS/rexx/lines','r')
  4. nl=readln(1)
  5.  
  6. lc=random(1,nl,time('s'))
  7.  
  8. do i=1 to lc
  9.     z=readln(1)
  10. end
  11.  
  12. call close(1)
  13. say z
  14. exit
  15.